(Cara teks tebal ditulis bergantung kepada perlaksanaan, contoh. 'INTEGER' (termasuk tanda pembuka kata) bagi integer.)

procedure Absmax(a) Size:(n, m) Result:(y) Subscripts:(i, k);    value n, m; array a; integer n, m, i, k; real y;comment The absolute greatest element of the matrix a, of size n by m is transferred to y, and the subscripts of this element to i and k;begin integer p, q;    y := 0; i := k := 1;    for p:=1 step 1 until n do    for q:=1 step 1 until m do        if abs(a[p, q]) > y then            begin y := abs(a[p, q]);            i := p; k := q            endend Absmax

Ini adalah contoh bagi menghasilkan jadual dengan menggunakan Elliott 803 ALGOL[4]..

 FLOATING POINT ALGOL TEST' BEGIN REAL A,B,C,D' READ D' FOR A:= 0.0 STEP D UNTIL 6.3 DO BEGIN   PRINT PUNCH(3),££L??'   B := SIN(A)'   C := COS(A)'   PRINT PUNCH(3),SAMELINE,ALIGNED(1,6),A,B,C' END' END'

PUNCH(3) output kepada pencetak dan bukannya penebuk tape.
SAMELINE menghalang carriage return + line feed yangbiasanya dicetak antara pernyataan.
ALIGNED(1,6) mengawal format output dangan 1 digit sebelum dan 6 selepas titik perpuluhan.